home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / os2 / ftree11a.zip / PERSON.FTX < prev    next >
Text File  |  1996-10-30  |  6KB  |  191 lines
  1. /*
  2.    Family Tree Rexx Script FTX
  3.  
  4.    Copyright (C) 1996 by <Nils Meier>
  5.  
  6.    Please send comments to / Kommentar bitte an
  7.         meier2@athene.informatik.uni-bonn.de
  8.  
  9.    <
  10.    English:   This script shows all informations about the currently selected person.  :English
  11.    Deutsch:   Dieses Skript zeigt alle Informationen des aktuell ausgewählten Menschen.:Deutsch
  12.    Nederlands:This script shows all informations about the currently selected person.  :Nederlands
  13.    Francais:  Ce script affiche toutes les informations sur la personne actuellement
  14.               sélectionnée.                                                            :Francais
  15.    >
  16.  
  17.    Long name is <
  18.                  English:    Print out current person            :English
  19.                  Deutsch:    Ausgeben der aktuellen Person       :Deutsch
  20.                  Nederlands: Print out current person            :Nederlands
  21.                  Francais:   Imprime de la personne actuellement :Francais
  22.                 >
  23. */
  24.  
  25. /* ----------------------- Params  /  Parameter ------------------- */
  26.  
  27. CALL InitLanguage
  28.  
  29. /* ----------------- Display Header / Kopf der Ausgabe ------------- */
  30.  
  31. head=msg.header.LANG||getName()||','||getFirstName()
  32. SAY(head)
  33. SAY(COPIES('=',length(head)))
  34.  
  35. /* ------------------------------ Output / Ausgabe ----------------- */
  36.  
  37. /* Standard data / Standardinformationen */
  38. SAY(msg.name.LANG      ||getName()                         )
  39. SAY(msg.firstname.LANG ||getFirstName()                    )
  40. SAY(msg.sex.LANG       ||WORD(msg.datasex.LANG,getSex()+1) )
  41. SAY(msg.birthdate.LANG ||getBirthDate()                    )
  42. SAY(msg.birthplace.LANG||getBirthPlace()                   )
  43. SAY(msg.deathdate.LANG ||getDeathDate()                    )
  44. SAY(msg.deathplace.LANG||getDeathPlace()                   )
  45. SAY(msg.occupation.LANG||getOccupation()                   )
  46. SAY(msg.address.LANG   ||getAddress()                      )
  47.  
  48. /* Memo field  /  Memofeld  */
  49. line=1
  50. SAY(msg.memo.LANG||getMemo(line))
  51. DO FOREVER
  52.    line=line+1
  53.    result=getMemo(line)
  54.    IF LENGTH(result)=0 THEN LEAVE
  55.    SAY(msg.empty.LANG||result)
  56. END
  57.  
  58. /* Marriages  /  Ehen */
  59.  
  60. p=1
  61. rc=selectFamily(p)
  62.  
  63. DO WHILE rc=1
  64.    /* Push Man on Stack  /  Menschen auf Stack */
  65.    rc=doStack('PP')
  66.  
  67.    /* Partner  /  Parner */
  68.    rc=selectPerson('p')
  69.    result=getFirstName()||' '||getName()||'  '
  70.  
  71.    /* MarriageDate  /  Heiratsdatum */
  72.    result=msg.marriage.LANG||result||getMarriageDate()
  73.  
  74.    /* Output  /  Ausgabe */
  75.    SAY('.........................................')
  76.    SAY(result)
  77.  
  78.    /* Children  /  Kinder */
  79.    c=1
  80.    rc=selectPerson(c);
  81.    DO WHILE rc=1
  82.       IF c=1 THEN
  83.          result=msg.child.LANG||getBirthDate()||' '||getFirstName()||' '||getName()
  84.       ELSE
  85.          result=msg.empty.LANG||getBirthDate()||' '||getFirstName()||' '||getName()
  86.       SAY(result)
  87.       c=c+1
  88.       rc=selectPerson(c)
  89.    END
  90.  
  91.    /* Pop Man from Stack  /  Menschen vom Stack */
  92.    rc=doStack('pP')
  93.  
  94.    /* Next Family of Actual /  Naechste Familie des Aktuellen */
  95.    p=p+1
  96.    rc=selectFamily(p)
  97. END
  98.  
  99.  
  100. /* Done / Fertig */
  101. RETURN
  102.  
  103.  
  104. /* ---------------------- LANGUAGE INIT --------------------------- */
  105. InitLanguage:
  106.  
  107.    /* Calculate Language Index */
  108.    lang='E'                              /* Default -> [E]nglish */
  109.    IF getLanguage()='Deutsch' THEN       /* Deutsch -> [G]erman */
  110.       lang='G'
  111.    IF getLanguage()='Nederlands' THEN    /* Nederlands -> [D]utch */
  112.       lang='D'
  113.    IF getLanguage()='Francais' THEN       /* Francais -> [F]rench */
  114.       lang='F'
  115.  
  116.    /* [E]nglish Messages */
  117.    msg.header.E    ='Personal data of '
  118.    msg.name.E      ='Name            : '
  119.    msg.firstname.E ='First name      : '
  120.    msg.sex.E       ='Sex             : '
  121.    msg.birthdate.E ='Birth date      : '
  122.    msg.birthplace.E='Birth location  : '
  123.    msg.deathdate.E ='Death date      : '
  124.    msg.deathplace.E='Death location  : '
  125.    msg.occupation.E='Occupation      : '
  126.    msg.address.E   ='Address         : '
  127.    msg.memo.E      ='Memo            : '
  128.    msg.picture.E   ='Picture         : '
  129.    msg.marriage.E  ='Marriage with   : '
  130.    msg.child.E     ='- Children      : '
  131.    msg.empty.E     ='                : '
  132.    msg.datasex.E   = '? male female'
  133.  
  134.    /* [G]erman Messages */
  135.    msg.header.G    ='Persoenliche Daten von '
  136.    msg.name.G      ='Name            : '
  137.    msg.firstname.G ='Vorname         : '
  138.    msg.sex.G       ='Geschlecht      : '
  139.    msg.birthdate.G ='Geburtsdatum    : '
  140.    msg.birthplace.G='Geburtsort      : '
  141.    msg.deathdate.G ='Todesdatum      : '
  142.    msg.deathplace.G='Todesort        : '
  143.    msg.occupation.G='Beruf           : '
  144.    msg.address.G   ='Addresse        : '
  145.    msg.memo.G      ='Memo            : '
  146.    msg.picture.G   ='Bild            : '
  147.    msg.marriage.G  ='Ehe mit         : '
  148.    msg.child.G     ='- Kinder        : '
  149.    msg.empty.G     ='                : '
  150.    msg.datasex.G   = '? männlich weiblich'
  151.  
  152.    /* [D]utch Messages */
  153.    msg.header.D    ='Personal data of '
  154.    msg.name.D      ='Name            : '
  155.    msg.firstname.D ='First name      : '
  156.    msg.sex.D       ='Sex             : '
  157.    msg.birthdate.D ='Birth date      : '
  158.    msg.birthplace.D='Birth location  : '
  159.    msg.deathdate.D ='Death date      : '
  160.    msg.deathplace.D='Death location  : '
  161.    msg.occupation.D='Occupation      : '
  162.    msg.address.D   ='Address         : '
  163.    msg.memo.D      ='Memo            : '
  164.    msg.picture.D   ='Picture         : '
  165.    msg.marriage.D  ='Marriage with   : '
  166.    msg.child.D     ='- Children      : '
  167.    msg.empty.D     ='                : '
  168.    msg.datasex.D   = '? male female'
  169.  
  170.    /* [F]rench Messages */
  171.    msg.header.F    ="Renseignements sur "
  172.    msg.name.F      ="Nom                : "
  173.    msg.firstname.F ="Prénom(s)          : "
  174.    msg.sex.F       ="Sexe               : "
  175.    msg.birthdate.F ="Date de Naissance  : "
  176.    msg.birthplace.F="Lieu de Naissance  : "
  177.    msg.deathdate.F ="Date du Décès      : "
  178.    msg.deathplace.F="Lieu du Décès      : "
  179.    msg.occupation.F="Activité           : "
  180.    msg.address.F   ="Adresse            : "
  181.    msg.memo.F      ="Mémo               : "
  182.    msg.picture.F   ="Image              : "
  183.    msg.marriage.F  ="Mariage avec       : "
  184.    msg.child.F     ="- Enfant(s)        : "
  185.    msg.empty.F     ="                   : "
  186.    msg.datasex.F   ="? Homme Femme"
  187.  
  188.    /* Done */
  189.    RETURN
  190.  
  191.